home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / bbwing.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-18  |  3.5 KB  |  75 lines
  1. (*===========================================================================*)
  2. (* Global variables                                                          *)
  3. (*                                                                           *)
  4. (*   Copyright 1988, 1989 by H. Roy Engehausen.  All rights reserved.        *)
  5. (*   This software may be freely distributed and used, but it may not        *)
  6. (*   under any circumstances be sold by anyone other than the author.        *)
  7. (*   It may be distributed by a commercial company as long as it is          *)
  8. (*   for no cost.                                                            *)
  9. (*                                                                           *)
  10. (*===========================================================================*)
  11.  
  12. (*---------------------------------------------------------------------------*)
  13. (* Initial window definitions -- Note:  Max number of windows also array size*)
  14. (*---------------------------------------------------------------------------*)
  15.  
  16. CONST
  17.  
  18.   window_max = 3;                        (* Max number of windows            *)
  19.  
  20. VAR
  21.   current_window    : BYTE;
  22.  
  23. (*---------------------------------------------------------------------------*)
  24. (* Window Array                                                              *)
  25. (*---------------------------------------------------------------------------*)
  26.  
  27. TYPE
  28.   window_data_ptr  = ^window_data_type;
  29.  
  30.   window_data_area = STRING[80];
  31.  
  32.   window_data_type = RECORD
  33.                        next_line  : window_data_ptr;
  34.                        last_line  : window_data_ptr;
  35.                        line_color : BYTE;
  36.                        this_line  : window_data_area;
  37.                      END;
  38.  
  39. VAR
  40.  
  41.   window_array : ARRAY[0..window_max] OF RECORD
  42.              window_act        : BOOLEAN;         (* Window active           *)
  43.              window_cursor     : BYTE;            (* X coordinate for cursor *)
  44.              window_loc        : BYTE;            (* Window location         *)
  45.              window_scrollable : BOOLEAN;         (* Is this window scrolling*)
  46.              window_at_top     : BOOLEAN;         (* Are we at window top?   *)
  47.              window_max_data   : WORD;            (* Max lines for scroll    *)
  48.              window_count      : WORD;            (* Lines held for scroll   *)
  49.              window_data       : window_data_ptr; (* Pointer to held data    *)
  50.              window_line       : window_data_ptr; (* Line at bottom of window*)
  51.              window_last       : window_data_ptr; (* Last data line          *)
  52.  
  53.            END;
  54.  
  55.   window_location : ARRAY[0..window_segments] OF RECORD
  56.              window_u_y    : BYTE;      (* Upper row                         *)
  57.              window_l_y    : BYTE;      (* Lower row                         *)
  58.              window_wl     : BYTE;      (* Window length                     *)
  59.  
  60.            END;
  61.  
  62. (*---------------------------------------------------------------------------*)
  63. (* Info on cursor                                                            *)
  64. (*---------------------------------------------------------------------------*)
  65.  
  66.    window_cursor_orig  : WORD;
  67.    window_cursor_block : WORD;
  68.  
  69. (*---------------------------------------------------------------------------*)
  70. (* Reset window's Y coordinate                                               *)
  71. (*---------------------------------------------------------------------------*)
  72.  
  73.   reset_window_y : BYTE;
  74.  
  75.